home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / bin / kedgs < prev    next >
Encoding:
Text File  |  1990-01-19  |  402 b   |  25 lines
  1. #!/bin/csh
  2. # kedgs: global string substitution on a set of files
  3. # syntax: kedgs string1 string2 filenames
  4. #
  5. #
  6. switch ($#argv)
  7.     case '0':
  8.     case '1':
  9.     case '2':
  10.         echo 'kedgs: Too few arguments!'
  11.         echo 'Usage: kedgs string1 string2 filenames'
  12.         exit -1
  13.         breaksw
  14.     default:
  15.         breaksw
  16. endsw
  17.  
  18. set files = `ls $argv[3-]`
  19. set file =
  20. foreach file ($files)
  21.     if(-f $file)then
  22.         kedg "$1" "$2" $file
  23.     endif
  24. end
  25.